home *** CD-ROM | disk | FTP | other *** search
/ Adobe Digital Video Collection / Digital Video Collection CD.iso / After Effects 5.5 / MMScriptGer.Cab / F115655_dbspring.mm < prev    next >
Encoding:
Text File  |  2001-12-07  |  1.3 KB  |  37 lines
  1. // Beidseitig federn - Version D1-1.3
  2.  
  3. // Dieses Skript verbindet die beiden Ebenen in den Einblendmenⁿs durch eine Feder. Die Ebenen
  4. // behalten die Geschwindigkeit, die sie am Anfang des Arbeitsbereiches hatten, bei.
  5.  
  6. //      EBENE                                   EIGENSCHAFT                        KANAL
  7. //      -----                                   -------------                       ------
  8. // 1: Mit #2 verbundene Ebene       Wird nicht berⁿcksichtigt       Wird nicht berⁿcksichtigt
  9. // 2: Mit #1 verbundene Ebene       Wird nicht berⁿcksichtigt       Wird nicht berⁿcksichtigt
  10.  
  11. if (time() == start_time) {
  12.     rest_length = 50;                    // LΣnge der Feder im entspannten Zustand in Pixeln
  13.     damp = 0.95;                                // DΣmpfung (0 = unendlich gro▀, 1 = unendlich klein)
  14.  
  15.     p1 = value(pop_layer(1), position);
  16.     p2 = value(pop_layer(2), position);
  17.  
  18.     last_p1 = tmap(time() - step_time, value(pop_layer(1), position));
  19.     last_p2 = tmap(time() - step_time, value(pop_layer(2), position)); 
  20.  
  21.     v1 = (p1 - last_p1);
  22.     v2 = (p2 - last_p2);
  23. } else {
  24.     delta = p2 - p1;
  25.     n_delta = normalize(delta);
  26.  
  27.     a = n_delta * (length(delta) - rest_length) * step_time;
  28.  
  29.     v2 = (v2 - a) * damp;
  30.     v1 = (v1 + a) * damp;
  31.  
  32.     p1 = p1 + v1;
  33.     p2 = p2 + v2;
  34.  
  35. }
  36.     value(pop_layer(1), position) = p1;
  37.     value(pop_layer(2), position) = p2;